Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / STAND.ARC / PROTO.U1 < prev next >

Wrap

Text File | 1990-03-28 | 11KB | 1,191 lines

proc main declend filen proto.icn line 10 line 11 pfail end proc expr1 local 0,001000,a local 1,001000,b local 2,000020,x local 3,000020,y local 4,000020,z local 5,000040,e1 local 6,000000,i local 7,000000,j con 0,002000,1,0 declend line 12 init L1 mark L1 pnull var 5 int 0 line 15 asgn unmark lab L1 mark L2 pnull unmark lab L2 mark L3 pnull unmark lab L3 mark L4 pnull unmark lab L4 mark L5 pnull unmark lab L5 mark L6 pnull line 19 llist 0 unmark lab L6 mark L7 pnull pnull pnull line 20 llist 2 unmark lab L7 mark L8 pnull var 2 line 21 field y unmark lab L8 mark L9 pnull var 2 var 6 line 22 subsc unmark lab L9 mark L10 pnull var 2 var 6 var 7 line 23 sect unmark lab L10 mark L11 pnull var 2 var 6 dup var 7 line 24 plus sect unmark lab L11 mark L12 pnull var 2 var 6 dup var 7 line 25 minus sect unmark lab L12 mark L13 pushn1 pnull pnull pnull pnull line 26 invoke 4 unmark lab L13 mark L14 var 2 pnull pnull pnull pnull line 27 invoke 4 unmark lab L14 mark L15 var 2 var 3 invoke -1 unmark lab L15 mark L16 mark L17 var 2 unmark efail lab L17 pnull unmark lab L16 mark L18 lab L19 mark0 var 2 chfail L19 esusp unmark lab L18 mark L20 pnull var 2 line 31 bang unmark lab L20 mark L21 pnull var 2 line 32 size unmark lab L21 mark L22 pnull var 2 line 33 number unmark lab L22 mark L23 pnull var 2 line 34 neg unmark lab L23 pnull line 35 pfail end proc expr2 local 0,001000,a local 1,001000,b local 2,000000,x local 3,000000,i local 4,000000,y local 5,000000,j local 6,000000,c1 local 7,000000,c2 local 8,000000,s1 local 9,000000,s2 local 10,000000,a1 local 11,000000,a2 local 12,000000,k declend line 37 mark L1 pnull var 2 line 38 value unmark lab L1 mark L2 pnull var 2 line 39 null unmark lab L2 mark L3 pnull var 2 line 40 tabmat unmark lab L3 mark L4 pnull var 2 line 41 random unmark lab L4 mark L5 pnull var 2 line 42 nonnull unmark lab L5 mark L6 pnull var 2 line 43 compl unmark lab L6 mark L7 pnull var 2 line 44 coact unmark lab L7 mark L8 pnull var 2 line 45 refresh unmark lab L8 mark L9 var 3 line 46 limit var 2 lsusp unmark lab L9 mark L10 var 2 var 4 line 47 coact unmark lab L10 mark L11 pnull var 3 var 5 line 48 power unmark lab L11 mark L12 pnull var 3 var 5 line 49 mult unmark lab L12 mark L13 pnull var 3 var 5 line 50 div unmark lab L13 mark L14 pnull var 3 var 5 line 51 mod unmark lab L14 mark L15 pnull var 6 var 7 line 52 inter unmark lab L15 mark L16 pnull var 3 var 5 line 53 plus unmark lab L16 mark L17 pnull var 3 var 5 line 54 minus unmark lab L17 mark L18 pnull var 6 var 7 line 55 unions unmark lab L18 mark L19 pnull var 6 var 7 line 56 diff unmark lab L19 mark L20 pnull var 8 var 9 line 57 cat unmark lab L20 mark L21 pnull var 10 var 11 line 58 lconcat unmark lab L21 mark L22 pnull var 3 var 5 line 59 numlt unmark lab L22 mark L23 pnull var 3 var 5 line 60 numle unmark lab L23 mark L24 pnull var 3 var 5 line 61 numeq unmark lab L24 mark L25 pnull var 3 var 5 line 62 numge unmark lab L25 mark L26 pnull var 3 var 5 line 63 numgt unmark lab L26 mark L27 pnull var 3 var 5 line 64 numne unmark lab L27 mark L28 pnull var 8 var 9 line 65 lexlt unmark lab L28 mark L29 pnull var 8 var 9 line 66 lexeq unmark lab L29 mark L30 pnull var 8 var 9 line 67 lexge unmark lab L30 mark L31 pnull var 8 var 9 line 68 lexgt unmark lab L31 mark L32 pnull var 8 var 9 line 69 lexne unmark lab L32 mark L33 pnull var 2 var 4 line 70 eqv unmark lab L33 mark L34 pnull var 2 var 4 line 71 neqv unmark lab L34 mark L35 mark L36 var 2 esusp goto L37 lab L36 var 4 lab L37 unmark lab L35 mark L38 pnull var 3 var 5 push1 line 73 toby unmark lab L38 mark L39 pnull var 3 var 5 var 12 line 74 toby unmark lab L39 mark L40 pnull var 2 var 4 line 75 asgn unmark lab L40 mark L41 pnull var 2 var 4 line 76 rasgn unmark lab L41 mark L42 pnull var 2 var 4 line 77 swap unmark lab L42 mark L43 pnull var 2 var 4 line 78 rswap unmark lab L43 mark L44 pnull var 3 dup var 5 line 79 plus asgn unmark lab L44 mark L45 pnull var 3 dup var 5 line 80 minus asgn unmark lab L45 mark L46 pnull var 3 dup var 5 line 81 mult asgn unmark lab L46 pnull line 82 pfail end proc expr3 local 0,000000,i local 1,000000,j local 2,000000,c1 local 3,000000,c2 local 4,000000,s1 local 5,000000,s2 local 6,000000,a1 local 7,000000,a2 local 8,000000,x local 9,000000,y local 10,000000,s declend line 84 mark L1 pnull var 0 dup var 1 line 85 div asgn unmark lab L1 mark L2 pnull var 0 dup var 1 line 86 mod asgn unmark lab L2 mark L3 pnull var 0 dup var 1 line 87 power asgn unmark lab L3 mark L4 pnull var 0 dup var 1 line 88 numlt asgn unmark lab L4 mark L5 pnull var 0 dup var 1 line 89 numle asgn unmark lab L5 mark L6 pnull var 0 dup var 1 line 90 numeq asgn unmark lab L6 mark L7 pnull var 0 dup var 1 line 91 numge asgn unmark lab L7 mark L8 pnull var 0 dup var 1 line 92 numne asgn unmark lab L8 mark L9 pnull var 2 dup var 3 line 93 unions asgn unmark lab L9 mark L10 pnull var 2 dup var 3 line 94 diff asgn unmark lab L10 mark L11 pnull var 2 dup var 3 line 95 inter asgn unmark lab L11 mark L12 pnull var 4 dup var 5 line 96 cat asgn unmark lab L12 mark L13 pnull var 4 dup var 5 line 97 lexlt asgn unmark lab L13 mark L14 pnull var 4 dup var 5 line 98 lexle asgn unmark lab L14 mark L15 pnull var 4 dup var 5 line 99 lexeq asgn unmark lab L15 mark L16 pnull var 4 dup var 5 line 100 lexge asgn unmark lab L16 mark L17 pnull var 4 dup var 5 line 101 lexgt asgn unmark lab L17 mark L18 pnull var 4 dup var 5 line 102 lexne asgn unmark lab L18 mark L19 pnull var 4 sdup line 103 bscan var 5 escan asgn unmark lab L19 mark L20 pnull var 6 dup var 7 line 104 lconcat asgn unmark lab L20 mark L21 pnull var 8 dup var 9 line 105 eqv asgn unmark lab L21 mark L22 pnull var 8 dup var 9 line 106 neqv asgn unmark lab L22 mark L23 pnull var 8 var 9 line 107 asgn unmark lab L23 mark L24 pnull var 8 sdup var 9 line 108 coact asgn unmark lab L24 mark L25 var 10 line 109 bscan var 8 escan unmark lab L25 mark L26 var 8 pop var 9 unmark lab L26 mark L27 goto L30 lab L28 pop mark L29 var 8 line 111 coret efail lab L29 cofail goto L29 lab L30 create L28 unmark lab L27 mark L31 mark L32 pnull line 112 pret lab L32 pfail unmark lab L31 mark L33 mark L34 var 8 line 113 pret lab L34 pfail unmark lab L33 mark L35 mark0 var 8 line 114 psusp pop lab L36 efail lab L37 unmark lab L35 mark L38 mark0 var 8 line 115 psusp pop mark0 var 9 unmark lab L39 efail lab L40 unmark lab L38 mark L41 line 116 pfail unmark lab L41 pnull line 117 pfail end proc expr4 local 0,000000,e1 local 1,000000,e2 local 2,000000,e local 3,000000,x local 4,000000,i local 5,000000,j local 6,000000,size local 7,000000,s local 8,000000,e3 local 9,000000,X_ con 0,002000,1,1 con 1,010000,3,141,142,143 con 2,020000,3,141,142,143 con 3,010000,1,012 con 4,010000,2,136,141 con 5,010000,1,001 con 6,002000,6,999999 con 7,002000,5,36ra1 con 8,004000,3.5 con 9,004000,2.5e4 con 10,004000,4e-10 declend line 119 mark L1 lab L2 mark0 var 0 unmark mark L2 unmark pnull goto L4 lab L3 unmark goto L2 lab L4 unmark lab L1 mark L5 lab L6 mark0 var 0 unmark mark L6 unmark var 1 goto L8 lab L7 unmark goto L6 lab L8 unmark lab L5 mark L9 lab L10 mark0 var 0 unmark mark L10 goto L11 lab L11 unmark goto L10 lab L12 unmark lab L9 mark L13 mark0 var 2 eret mark L15 ccase var 3 line 124 eqv unmark pop pfail goto L14 lab L15 mark L16 ccase mark L17 pnull var 4 var 5 line 125 numgt esusp goto L18 lab L17 int 0 lab L18 eqv unmark pop mark L19 pnull pret lab L19 pfail goto L14 lab L16 efail lab L14 unmark lab L13 mark L20 mark0 var 6 var 7 line 127 invoke 1 eret mark L22 ccase int 0 line 128 eqv unmark pop int 0 goto L21 lab L22 pop line 129 pfail lab L21 unmark lab L20 mark L23 mark0 var 0 unmark var 1 unmark lab L23 mark L24 mark L25 var 0 unmark var 1 goto L26 lab L25 var 8 lab L26 unmark lab L24 mark L27 lab L28 mark L28 var 2 lab L29 unmark goto L28 lab L30 unmark lab L27 mark L31 lab L32 mark0 var 0 lab L33 unmark goto L32 lab L34 unmark lab L31 mark L35 lab L36 mark0 var 0 unmark mark L36 var 1 lab L37 unmark goto L36 lab L38 unmark lab L35 mark L39 lab L40 mark L41 var 0 unmark efail lab L41 mark L40 pnull lab L42 unmark goto L40 lab L43 unmark lab L39 mark L44 lab L45 mark L46 var 0 unmark efail lab L46 mark L45 var 1 lab L47 unmark goto L45 lab L48 unmark lab L44 mark L49 mark0 var 0 pop lab L50 efail lab L51 unmark lab L49 mark L52 mark0 var 0 pop mark0 var 1 unmark lab L53 efail lab L54 unmark lab L52 mark L55 var 3 unmark lab L55 mark L56 var 9 unmark lab L56 mark L57 line 142 keywd 4 unmark lab L57 mark L58 line 143 keywd 24 unmark lab L58 mark L59 str 1 unmark lab L59 mark L60 cset 2 unmark lab L60 mark L61 str 3 unmark lab L61 mark L62 str 4 unmark lab L62 mark L63 str 5 unmark lab L63 mark L64 str 5 unmark lab L64 mark L65 int 0 unmark lab L65 mark L66 int 6 unmark lab L66 mark L67 int 7 unmark lab L67 mark L68 real 8 unmark lab L68 mark L69 real 9 unmark lab L69 mark L70 real 10 unmark lab L70 pnull line 156 pfail end